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EDTSCHMGBUF = Look for a buffer name ih.s2 =1984 23:57:05 VAX-11 Bliss-32 V4.0-74 Page 1. 
1a-8ep-19 4 $3:35:93 ST EKSUMGHASTERSCEDT SRCTCHMGBUF .BLI:1 . (1), 
001 ZTITLE ‘EDTSCHMGBUF = Look for a buffer name' 

0 § MODULE EDTSCHMGBUF ( ! Look for a buffer name 

38 {DENT = 'v04-000' ' File: CHMGBUF.BLI Edit: JBS1006 
= 
BEGIN 
leuanenneenaeneneeenanennnenarentrenerertnerererenentnenennnenenennnerenerens 
e 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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. 

'® TRANSFERRED. * 
* 
* 
* 
* 
x 
* 
* 
4 
. 
. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* eppokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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2 PETTITT LLL LLL LLL LL LLL LLL LLL LLL LLL LiL Liilitiiiii iil | 
' | 
003 | 
003 144 
003 : FACILITY: EDT -- The DEC Standard Editor | 
005 ABSTRACT: 
O08 This module scans the command buffer for a buffer name. 
O08 ENVIRONMENT: Runs at any access mode - AST reentrant 
904 AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
004 MODIFIED BY: 
0044 i 1-001 - Original. DJS 04-Feb-1981. This module was created by 
0045 ; extracting the routine EDTSSGET_BUF from the module CHANGE.BLI. | 
Bde6 ! 1-008 - Regularize headers. JBS 02-Mar-1981 
004 ! 1-003 - Use new message codes. JBS 04-Aug-1981 R 
048 ! 1-004 = Check first to see if there are more characters on command Line. | 
049 ! STS 21-Jun-19 
0050 ! 1-093 - Change alphabetic test. JBS 19-Jul-1982 
0032 1-006 - Add conditional for V1220 support. JBS 11-Feb-1983 
005 


i] 
EDTSCHMGBUF EDTSCHMGBUF = Look for a buffer name bese -1984 23:57:05 VAX-11 Bliss-32 V4.0-74 Page 
FO +000 Declarations 1228 08=1Re $3:35:9 PT EKSUMGMASTERSCEDT SRCTCHMGBUF .BLI;1 : fe 
; 8 : } XSBTTL Declarations’ 
3 0 § 1 ! TABLE OF CONTENTS: 
3 be ; ! 
: 039 : REQUIRE "EDTSRC: TRAROUNAM'; 
: 0499 1 FORWARD ROUTINE 
3 F's : EDTSSGET_BUF : NOVALUE; ! Look for a buffer specification for the cut, paste, and append commands 
; b20¢ - 
3 B28 1 ! INCLUDE FILES: 
; 504 1! | 
3 0505 1 
0506 1 REQUIRE *EDTSRC:EDTREQ"; | 
4 pose 1 LIBRARY ‘EDTSRC:SUPPORTS'; 
3 0645 1 
3 0644 1! 
; 0645 1 ! MACROS: 
5 0646 1! 
3 0647 1! NONE 
; 0648 1! 
3 0649 1 ! EQUATED SYMBOLS: 
3 0650 1! 
; 0651 1! NONE 
; Be3¢ B 
; 0653 1 ! OWN STORAGE: 
3 0654 1! 
; 0655 1! NONE 
3 0656 1! 
3 0657 1 ! EXTERNAL REFERENCES: 
3 0658 1! ; 
3 0659 1! In the routine 


2 te HMGBUF EDTSCHMGBUF = Look for a buffer name Sop-19 4 93:32 03 VAX-11 Bliss-32 V4. Ones Page 3) 

- a - look for a buffer name 4-Sep- -BLI; | 

V EDTSS$GET_BuUF Look f buf f 1984 1 DISKSVMSMASTER: CEDT. SRC JCHMGBUF .BLI;1 (3) 

; 39 8660 } ZSBTTL ‘EDTSS$GET_BUF = Look for a buffer name’ : 
: 38 Dee : GLOBAL ROUT INE EDTSS$GET_BUF ! Look for a buffer name : 
; : = ; 
; * 0664 1 ‘ 
>. oe 665 1 !+4 ; 
; 38 208 : FUNCTIONAL DESCRIPTION: : 
; «698 0668 1! This routine looks for a buffer spec for use by cut paste and append. ; 
; WW 0669 1! he an ‘=" is seen, an explicit buffer ogee is there, otherwise, use ‘ 
: 100 0670 1! © paste buffer. The routine places the address of the buffer in ; 
; 19) $7) ! } Dts ALALT_BUF , with a zero indicating failure. ‘ 
; 108 0673 1 ! FORMAL PARAMETERS: : 
> 104 0674 1! : 
: 105 0675 1! NONE ; 
: 106 0676 1! : 
3; 107 0677 1°! IMPLICIT INPUTS: : 
: 108 0678 1! | : 
; 109 0679 1! EDTSSA_CMD_END ‘ 
; 110 0680 1! EDTSSA_CMD_BUF | , 
> 0681 1! EDTSS$A_PST_BUF : 
; Ve 0682 1! EDTS$A_CUR_BUF : 
a. 2 068 1! ‘ 
3; «116 0684 1 ! IMPLICIT OUTPUTS: : 
3; «6115 0685 1! : 
: 116 0686 1! EDTS$S$A_ALT_BUF | : 
; 17 0687 1! EDTSSA_CMD_BUF : 
3: «118 0688 1! : 
3; 119 0689 1 ! ROUTINE VALUE: : 
: 120 0690 1! : 
3 le 0691 1! 1 = buffer spec seen, 0 = no buffer spec seen | : 
; 1¢¢ 0692 1! : 
3 te 0695 1 | SIDE EFFECTS: | ; 
: Se 0694 1! ; : 
: 125 0695 1! Uses EDTSSFND_BUF to create the buffer if necessary. If it fails, | : 
; 126 0696 1! gives an error message. ; 
s Yer 0697 1! : 
: 128 0698 1 !-- ; 
: 134 0699 1 : 
: 130 0700 BEGIN ; 
i 138 0708 EXTERNAL ROUTINE : 
3; (Y $78 EDTSSMSG_BELL : NOVALUE, ! Qutput a message to the terminal with a warning bell 3 
3; 1 704 got SSeNy V-uPC, ' Convert string to upper case : 
3 435 Bope EDTSSFND_BUF , ' Search for a text buffer 3 
3 136 8708 EDT$S$RD_CURLN; ' Get the current Line | : 
; «#138 0708 a”, ; 
3; #139 0709 hy, $A_CMD_END, ! End of command pointer | 3 
3; 140 Brig EDTSSA_CMD_BUF, ! Command string Fused. 3 
2 Giese STRCAT BU: AEE Weep gtgee, | Aieeate Buller upg for cut/peste ia 
: : * ° ' The paste buffer 3 
; 148 ab EDTSSA_CUR_BUF : REF TBCB_BLOCK ! The current 4 hy Bet 

3 6145 L 0715 Z1F SUPPORT_VT220 

; 146 0716 XTHEN 
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EDT$$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE] ! Information about characters 


48 
49 FI 
20 

1 ; 
38 MESSAGES ((INVBUFNAM, INSMEM)); 
55 LOCAL 
56 SAVE_TBCB, 
57 NEW 
38 NAME_LEN 

9 NAME~START, 
60 CHAR; 
61 
63 


NAME_LEN = 0; 
CHAR™= CHSRCHAR (.EDTSS$A_CMD_BUF); 
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3 07 

3 1 07 

. 3 07 

3 07 

: 164 07 

; 165 07 IF (.CHAR EQL %C*°=") AND (.EDTSSA_CMD_BUF LSSU .EDTSS$A_CMD_END) 
> 166 07 ; THEN 

s 167 ore BEGIN 

3; 168 0738 ; EDTSSA_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, 1); 

: 19 1404 NAME_START = .EDTSSA_CMD_BUF; 

; \7 Bees 3 WHILE CHSPTR_LSS (.EDTSSA_CMD_BUF, .EDTSS$A_CMD_END) DO 

; 13 tok 4 CHAR = CHSRCHAR (.EDTSSA_CMD_BUF); 

3; «(174 0744 4 

3: 175 4 0745 4 XIF SUPPORT_VT220 

; 176 0746 4 XTHEN 

tre 9747 & 

: 178 Or48 6 IF ((. EDT$$B_CHAR_INFO C.CHAR, 0, 0, 2, 0] EQL 0) ' Not alphabetic 
> 179 0749 6 AND (.EDT$$B8_CHAR_INFO C.CHAR, 6, 6, 8, 0] NEQ %X'FO') ! Not numeric 
: 180 0750 6 AND (.CHAR NEQ %C°_') ! Not an underscore 
: 181 0751 5 

; is 0736 4 THEN 

: 18 075 4 EXITLOOP; 

> «(184 0754 4 

: «185 U 0755 4 XELSE 

3; «(186 U 0756 4 

s 187 u 0757 4 IF (CC. CHAR LSS %C'O') OR ! 

: 188 u 0758 4 -CHAR GTR %C°9") AND (.CHAR LSS %C°A')) OR ! 
: «6189 u 0759 4 ((. CHAR GTR %C'Z") AND (.CHAR LSS %C‘a')) OR ! 
; 190 U 0760 4 (.CHAR GTR 2C'z')) AND (.CHAR NEQ 2%C'_')) 

: 192 U $78) ¢ EXITLOOP 

; 198 U b7e8 4 

> 194 Bree 4 2FI 

: «6195 765 4 

; 196 9766 4 NAME_LEN = .NAME_LEN + 1; 

3; 197 076 4 EDTS$SA_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, 1); 

; 198 768 END; 

3; 199 a4 

: n0 aa CHAR = CHSRCHAR (.NAME_START); 

; 34 L 14: IF SUPPORT_VT220 

; 20 077 XTHEN 
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EDTSCHMGBUF EDTSCHMGBUF = Look for a buffer name 15-3 Sep 5 VAX-11 Bliss-32 V 
04-600 EDTS$ce) BUF - look for a buffer name 14*$ Sep 71386 $3 35: 3 DISKSVMSMASTER: ct Bt she CHMGBUF .BLI;1 we 3) 
: 204 774 3 
; oe ie 4 IF _((.NAME_LEN EQL 0) OR (.EDTSS$B_CHAR_INFO C.CHAR, 0, 0, 2, 0] EQL 0)) 
: 20 U oes YELSE 
: 208 U 0778 | 
: 309 U 0779 IF ((.NAME_LEN Fat 0) OR 
; 10 ’ Ai (ZCHAR"LSS %C°A') OR ((.CHAR GTR %C'Z") AND (.CHAR LSS %C'a")) OR (.CHAR GTR %C'z')) | 
: $4 ? uF | 
: 58 O78 | 
: 214 0784 4 BEGIN 
: 215 07 $ 4 EDTSSMSG _BELL (EDT$_INVBUFNAM); 
> 216 786 4 RETURN 
: 217 0787 END; 
: gig o788 EDTSSCNV UPC (NAME, START... .NAME_LEND; 
; 220 0790 €_TBCB = .EDTS$A~CUR_BUF: 
: 3¢ 079¢ IF EDTSSFND_BUF (.NAME_START, .NAME_LEN) 
; 3 079 HEN 
> 336 0794 EDTS$SA_ALT_BUF = .EDTS$A_CUR_BUF 
> 225 0795 
: 226 0796 3 EDTSSMSG_BELL (EDTS_INSMEM); 
> 227 0797 3 
: 228 0798 3 EDTS$S$A_CUR_BUF = .SAVE_TBCB; 
> 229 0799 EDTS$RDB_CURLN (); 
: 230 0800 3 END 
: 231 0801 2 ELSE 
; 332 980 y EDTSSA_ALT_BUF = .EDT$SA_PST_BUF; 
: 234 0804 1 END; ! of routine EDT$$GET_BUF 


-TITLE EDTSCHMGBUF EDTSCHMGBUF - look for a buffer nam 
IDENT \V04-000\ 
-EXTRN EDTSSMSG_BELL, sore talc 


-EXTRN EDTSSFND BUF, EDTSSRD 

-EXTRN EDTSSA A.CAD_E D, EDTSS$A_CMD BUF 
-EXTRN EDTSSA_ALT_BUF, EDTSS$A_PST BUF 
-EXTRN EDTSSA_CUR-BUF, EDTS$$B-CHAR_INFO 
SEXTRN EDTS_IRVBUFNAM, EDTS_INSMEM™ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 


Be Pe Be Oe Be Be Se Be Se Se Be Se Se Se Se SF Se Ge BeBe Fe Se Se Se Se Se Ge Se Se Ge Se Se Ge Be Se Se Se Se Se Se Se Se Se Se Se Seas ae SH Se Se Se Seas te eeas 


O7FC 00000 ENTRY EDISSGET_ BUF, Save R2,R3.R4,R5.R6.R7,R8,R9,-; 0662 
5A 000000006 00 9€ 0000 MOVAB EDTS$$A_ALT_BUF, af! : 
59 atid 0 9 900 MOVAB EDTS$MSG BELL : 
28 00 0 06 9 910 MOVAB EDTS$$B_ CRA Li, R8 : 
57 00 G 9€ 0001 MOVAB EDTSSA“CMD_END, 7 ; 
36 00 0 6 00 9€ If MOVAB EDTS$SA~ EUR “BUF: R F 
5 000006 00 9 MOVAB EDTSSA"CMD“BUF. R : | 
4 D C CLRL NAME L : O73 
51 65 DO 00 f MOVL  EDT$SA_CMD_BUF, R1 : 0733 | 
A MOVZBL R1), CHAR F 
50 61 9A 000 (R1 


o 
oS 
o 
oO 


; Routine Size: 188 bytes, Routine Base: _EDTSCODE + 


9 | 
EDTSCHMGBUF EDTSCHMGBUF = Look for a buffer name 18. -Sep-1984 7:05 VAX-11 Bliss-32 V4.0-74 
v04- EDT$$GET_BUF = Look for a buffer name 14- at 7 $3: 35: 93 DT SKSVMEMASTERS CEDT.SRCJCHMGBUF .BLI;1 tes (3S 
| 
3D 0 01 4 CMPL HAR, #61 : 0735 | 
30 if 09 7 BNE gs ; | 
67 3] D 9 CMPL = R1, EDT$S$A_CMD_END ; | 
® 1E 90 C BGEQU 8S ; | 
65 06 000 INCL  EDT$$A_CMD_BUF + 0738 
52 65 D0 0004 HOV —EDTSSA“CMD“BUF, NAME_START t 0739, 
51 $3 DO 00043 1$ MOVL  EDTSSA ATCA : 0741 
67 1 D1 00046 CHL RT, EDTSSA=CMD_END tes 
21 1E 0004 BGEQU 3$ : 
50 61 9A 00048 MOVZBL (R1), CHAR + 0743) 
51 30 58 C1 0004 ADDL3 RB, CHAR, R1 + 0748 
0 61 93 905 BITS (RI), #3- : 
rs 5 BNEQ 2$ : 
FO. OS 61 91 00057 CMPB ss (R11), #240 + 0749 
09 13 00058 BEQL 2$ : 
Q000005F 8F 50 01 0005p CMPL spe #95 + 0750 
06 12 90064 BNE $ : 
4 06 0066 2$ INCL + 0766 
65 D6 0006 INCL EO TSSA. CMD _BUF + 0767 
D? 11 0006A BRB 1$ : 0741 
50 62 9A 0006C 3$ MOVZBL (NAME_START), CHAR : 0770 
54 D5 0006F TSTL NAME _CEN : 0775 
06 13 00071 BEQL ; 
03 6840 93 00073 BITS EDT$$B_CHAR_INFOLCHAR], #3 : 
OA 12 00077 BNEQ 5 : 
000000006 8F DD 00079 4$ PUSHL #EDTS INVBUF NAM : 0785 
69 01 FB 0007F CALLS , EDTS$MSG_BELL ; 
04 0008¢ RET : 0784 
14 BB 00083 5$ PUSHR yonc R2 : 0789 
000000006 00 02 FB 00085 CALLS TS tSSCNV : 
53 66 D0 0008C MOVL Ebfss $A_CUR “BOF, «SAVE _TBCB : 0790 
14 BB 0008F PUSHR #*M<R27R4> : 0792 
000000006 00 02 FB 00091 CALLS #2, <EOTSSEND _BUF ; 
05 50 €9 00098 BLBC =O ; 
6A 66 DO 00098 MOVL DIS$A_CUR_BUF, EDTSSA_ALT_BUF > 0794 
09 11 0009E BRB : 
000000006 8F DD OOOA0 6$: PUSHL #EDTS SHEN : 0796 
69 o1 FB 000A6 CALLS EBTSSns ; 
66 3 DO O00A9 7$: MOVL SA VE_T sEDTSsA. CUR_BUF ; 0798 
000000006 00 00 FB O00aC CALLS #0, EDTSShD. CURLN™ : O79 
6A 000000006 00 00 00084 8$: MOVL §§ EDTS$A_PST_BUF, EDT$$A_ALT_BUF : 0802 | 
04 OOOBB RET 0804 | 
| 


235 0805 1 
236 0806 1 !<BLF/PAGE> 
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Name 
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File 


~$255$DUA2 
~$255$DUA2 
~$255$DUA28: 


FE FSSFOMECK OSE TELS ENE TER, .OPT SALES F/UGTRACEOAE SL LOG. 5 SRW FOR LHOR.IS HCIOET MSRC$: CHMGBUF .BL1/UPDATE=(ENH$: CHMGBUF 


Elapsed Tae: 
Lines/CPU Min: 


Lexemes/CPU-Min: 


Memory Used: 


Compication Complete 


EDTSCHMGBUF = Look for a buffer name 
EDTSSGET_BUF = look for a buffer name 
0807 1 END 

0808 1 

0809 0 ELUDOM 


PSECT SUMMARY 
Bytes 


188 NOVEC,NOWRT, 


Library Statistics 


Total 
:CEDT. SRCJEDT.L32;1 377 
:CEDT.SRCIPSECTS.L32;1 2 
:CEDT.SRCJSUPPORTS.L 32:1 2 


COMMAND QUAL IF 


188 code + 0 data bytes 
00:14.4 


00:17.7 
3370 
11166 

95 pages 
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Attribu 


RD, EXE, S$ 


Symbols 
Loaded Percent 
26 

1 


6 
50 
1 50 


IERS 
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! of module EDTSCHMGBUF 


tes 
HR, LCL, REL, CON, PIC,ALIGN(2) 
Pages Processing 
Mapped Time 
40 00:00.2 
7 00:00.1 
5 00:00.1 
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